home *** CD-ROM | disk | FTP | other *** search
/ Clickx 22 / Clickx 22.iso / Menu.dxr / 00009_list_files.ls < prev    next >
Encoding:
Text File  |  2005-01-01  |  2.2 KB  |  81 lines
  1. property pLine, pItem, pIDlist
  2. global gPlatform, gGroep, gFile
  3.  
  4. on beginSprite me
  5.   pIDlist = []
  6.   if gPlatform = "PC" then
  7.     Files = getFilesPC(gGroep)
  8.   else
  9.     Files = getFilesMAC(gGroep)
  10.   end if
  11.   sprite(me.spriteNum).member.text = EMPTY
  12.   repeat with i = 1 to 17
  13.     if i <= Files.count then
  14.       sprite(me.spriteNum).member.line[i] = Files[i].naam
  15.       pIDlist.add(Files[i].id)
  16.     end if
  17.   end repeat
  18.   pLine = 1
  19.   pItem = 1
  20.   sprite(me.spriteNum).member.color = rgb("#000000")
  21.   sprite(me.spriteNum).member.line[pItem].color = rgb("#F80808")
  22.   if pIDlist = [] then
  23.     alert("ERROR: Geen files in deze groep!")
  24.     go("menu")
  25.     exit
  26.   else
  27.     showFileInfo()
  28.   end if
  29.   repeat with i = 1 to member("pakketten").text.lines.count
  30.     sprite(me.spriteNum).member.line[i].color = rgb("#000000")
  31.   end repeat
  32. end
  33.  
  34. on mouseWithin me
  35.   repeat with i = 1 to member("pakketten").text.lines.count
  36.     sprite(me.spriteNum).member.line[i].color = rgb("#000000")
  37.   end repeat
  38.   newLine = sprite(me.spriteNum).pointToLine(the mouseLoc)
  39.   if newLine <> -1 then
  40.     sprite(me.spriteNum).member.line[newLine].color = rgb("#FF0000")
  41.   end if
  42. end
  43.  
  44. on mouseLeave me
  45.   repeat with i = 1 to member("pakketten").text.lines.count
  46.     sprite(me.spriteNum).member.line[i].color = rgb("#000000")
  47.   end repeat
  48. end
  49.  
  50. on mouseUp me
  51.   repeat with i = 1 to member("pakketten").text.lines.count
  52.     sprite(me.spriteNum).member.line[i].color = rgb("#000000")
  53.   end repeat
  54.   newLine = sprite(me.spriteNum).pointToLine(the mouseLoc)
  55.   if newLine <> -1 then
  56.     sprite(me.spriteNum).member.line[newLine].color = rgb("#FF0000")
  57.     pItem = newLine
  58.     showFileInfo()
  59.   end if
  60. end
  61.  
  62. on showFileInfo
  63.   if gPlatform = "PC" then
  64.     groepen = getGroupsPC()
  65.     fileDetails = getFileDetailsPC(pIDlist[pItem])
  66.   else
  67.     groepen = getGroupsMAC()
  68.     fileDetails = getFileDetailsMAC(pIDlist[pItem])
  69.   end if
  70.   member("uitleg").text = fileDetails[1].Caption
  71.   member("URL").text = fileDetails[1].url
  72.   member("bestandsnaam").text = fileDetails[1].BestandsNaam
  73.   if fileDetails[1].BestandsNaam = EMPTY then
  74.     sprite(26).visible = 0
  75.     sprite(27).visible = 0
  76.   else
  77.     sprite(26).visible = 1
  78.     sprite(27).visible = 1
  79.   end if
  80. end
  81.